home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic 6.0 Utilities / Multi-Language Add-In for Visual Basic 6.0 / MultiLang.msi / _F8FA670A9FD611D5BEFD0020182C1E5C (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-26  |  4.0 KB  |  131 lines
  1. VERSION 5.00
  2. Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
  3. Begin VB.Form frmJapaneseTest 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Japanese Test"
  6.    ClientHeight    =   3936
  7.    ClientLeft      =   36
  8.    ClientTop       =   612
  9.    ClientWidth     =   9732
  10.    Icon            =   "frmJapaneseTest.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3936
  15.    ScaleWidth      =   9732
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin MSForms.TabStrip TabStrip1 
  19.       Height          =   1692
  20.       Left            =   5400
  21.       TabIndex        =   3
  22.       Top             =   1200
  23.       Width           =   2892
  24.       ListIndex       =   0
  25.       Size            =   "5101;2984"
  26.       Items           =   "Tab1;Tab2;"
  27.       TipStrings      =   ";;"
  28.       Names           =   "Tab1;Tab2;"
  29.       NewVersion      =   -1  'True
  30.       TabsAllocated   =   2
  31.       Tags            =   ";;"
  32.       TabData         =   2
  33.       Accelerator     =   ";;"
  34.       FontHeight      =   156
  35.       FontCharSet     =   0
  36.       FontPitchAndFamily=   2
  37.       TabState        =   "3;3"
  38.    End
  39.    Begin MSForms.CommandButton cmdExit 
  40.       Height          =   492
  41.       Left            =   120
  42.       TabIndex        =   2
  43.       Top             =   3120
  44.       Width           =   4692
  45.       Caption         =   "Exit"
  46.       Size            =   "8276;868"
  47.       FontName        =   "Arial"
  48.       FontHeight      =   240
  49.       FontCharSet     =   0
  50.       FontPitchAndFamily=   2
  51.       ParagraphAlign  =   3
  52.    End
  53.    Begin MSForms.Label Label2 
  54.       Height          =   612
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   2160
  58.       Width           =   4692
  59.       Caption         =   "Text"
  60.       Size            =   "8276;1080"
  61.       BorderStyle     =   1
  62.       FontName        =   "Arial"
  63.       FontHeight      =   240
  64.       FontCharSet     =   0
  65.       FontPitchAndFamily=   2
  66.    End
  67.    Begin MSForms.Label Label1 
  68.       Height          =   612
  69.       Left            =   120
  70.       TabIndex        =   0
  71.       Top             =   1200
  72.       Width           =   4692
  73.       Caption         =   "Text"
  74.       Size            =   "8276;1080"
  75.       BorderStyle     =   1
  76.       FontName        =   "Arial"
  77.       FontHeight      =   240
  78.       FontCharSet     =   0
  79.       FontPitchAndFamily=   2
  80.    End
  81.    Begin VB.Menu mnuFile 
  82.       Caption         =   "File"
  83.       Begin VB.Menu mnuFileExit 
  84.          Caption         =   "Exit"
  85.       End
  86.    End
  87.    Begin VB.Menu mnuTools 
  88.       Caption         =   "Tools"
  89.       Begin VB.Menu mnuChangeLanguage 
  90.          Caption         =   "Change Language"
  91.       End
  92.    End
  93. Attribute VB_Name = "frmJapaneseTest"
  94. Attribute VB_GlobalNameSpace = False
  95. Attribute VB_Creatable = False
  96. Attribute VB_PredeclaredId = True
  97. Attribute VB_Exposed = False
  98. Option Explicit
  99. Private WithEvents ml_RuntimeSupport As MLRUNTIMELib.MLSupport
  100. Attribute ml_RuntimeSupport.VB_VarHelpID = -1
  101. Private Sub cmdExit_Click()
  102.   Unload Me
  103. End Sub
  104. Private Sub mnuChangeLanguage_Click()
  105.   LanguageSelect.ShowDialog False
  106. End Sub
  107. Private Sub mnuFileExit_Click()
  108.   Unload Me
  109. End Sub
  110. Private Sub ml_UpdateControls()
  111.   Me.Caption = ml_string(1)
  112.   cmdExit.Font.Name = ml_string(11)
  113.   cmdExit.Caption = ml_string(10)
  114.   Label1.Font.Name = ml_string(11)
  115.   Label1.Caption = ml_string(3)
  116.   Label2.Font.Name = ml_string(11)
  117.   Label2.Caption = ml_string(3)
  118.   mnuChangeLanguage.Caption = ml_string(6)
  119.   mnuFile.Caption = ml_string(4)
  120.   mnuFileExit.Caption = ml_string(2)
  121.   mnuTools.Caption = ml_string(5)
  122. End Sub
  123. Private Sub Form_Load()
  124.   Set ml_RuntimeSupport = New MLSupport
  125.   ml_UpdateControls
  126. End Sub
  127. Private Sub ml_RuntimeSupport_LanguageChanged(ByVal LanguageID As Long, ByVal Language As String)
  128.   ml_ChangeLanguage LanguageID, Language
  129.   ml_UpdateControls
  130. End Sub
  131.